home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 351-375 / disk_352 / mg / rexx / savesomebuffers.mg < prev    next >
Text File  |  1992-05-06  |  644b  |  30 lines
  1. /*
  2.  * Emulates "save-some-buffers" for rexx macros, since the built-in one won't
  3.  * work from a Rexx macro (homework question for Amiga mg hackers: why?).
  4.  */
  5.  
  6. options failat 2
  7. options results
  8. signal on failure
  9.  
  10. 'rexx-buffer' start
  11. 'rexx-buffer-list' buffers
  12. if buffers.0 = 0 then exit 0    /* No buffers to save! */
  13.  
  14. do buf = 1 to buffers.0
  15.     if buffers.buf.file ~= "" & word(buffers.buf.status, 1) = "CHANGED" then
  16.         do
  17.         'rexx-request "Save buffer' buffers.buf.name'? " '
  18.         if upper(left(result, 1)) = 'Y' then do
  19.             'switch-to-buffer' buffers.buf.name
  20.             'save-buffer'
  21.             end
  22.         end
  23.     end
  24.  
  25. 'switch-to-buffer' start.1
  26. return 0
  27.  
  28. failure:
  29.     return 2
  30.